home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / icon / packages.lha / packages / atari / ats.arc / TESTS.ARC / OVER.ICN < prev    next >
Text File  |  1990-03-28  |  399b  |  23 lines
  1. procedure main()
  2.    if not(&features == "large integers") then
  3.       stop("large integers not supported")
  4.    i := 100000 + 10000
  5.    write(i)
  6.    i +:= 2 ^ 30
  7.    write(i)
  8.    i +:= i
  9.    write(i)
  10.    i := 100000 * 10000
  11.    write(i)
  12.    i +:= 2 ^ 30
  13.    write(i)
  14.    i *:= i
  15.    write(i)
  16.    i := -100000 - 10000
  17.    write(i)
  18.    i +:= -(2 ^ 30)
  19.    write(i)
  20.    i -:= 2 ^ 30
  21.    write(i)
  22. end
  23.